(read1): Allow "?" after a character constant.

diff --git a/src/ChangeLog b/src/ChangeLog
index 5bef6ada00f17d2fdd8de56a5f5f78b7c1a29d5d..04fce4d98115a7901f90235f120ab3d018c0a497 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -11,7 +11,8 @@
 
 2003-02-18  Kim F. Storm  <storm@cua.dk>
 
-       * lread.c (read1): Fix last change; "`" is not always special.
+       * lread.c (read1): Fix last change.
+       "`" is not always special.  Allow "?" after a character constant.
 
 2003-02-18  Andrew Choi  <akochoi@shaw.ca>
 

diff --git a/src/lread.c b/src/lread.c
index f5d639e4494573e3689d0a84834953f772988e2e..d3f0984778708be19b85eb31e1259e3c350503ec 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -2278,7 +2278,7 @@ read1 (readcharfun, pch, first_in_list)
        else
          {
            ok = (next_char <= 040
-                 || index ("\"';()[]#", next_char)
+                 || index ("\"';()[]#?", next_char)
                  || (!first_in_list && next_char == '`')
                  || (new_backquote_flag && next_char == ','));
          }